home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / SERIPARA.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  1.6 KB  |  69 lines
  1. 10  'SERIPARA - 03 MAY 92 rev. 28 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  DIM P(99)
  6. 60  UL$=STRING$(80,205)
  7. 70  U$="#####,###.###"
  8. 80  '
  9. 90  '.....start
  10. 100  CLS:N=0:T=0:S=0
  11. 110  COLOR 15,2
  12. 120  PRINT " SERIES or PARALLEL Resistors/Capacitors/Inductors";
  13. 130  PRINT TAB(57);"by GEORGE MURPHY VE3ERP ";
  14. 140  COLOR 1,0:PRINT STRING$(80,223);
  15. 150  COLOR 7,0
  16. 160  PRINT " Press number in < > to:
  17. 170  PRINT UL$;
  18. 180  PRINT "  < 1 >  Calculate resistance"
  19. 190  PRINT "  < 2 >  Calculate capacitance"
  20. 200  PRINT "  < 3 >  Calculate inductance"
  21. 210  PRINT UL$;
  22. 220  PRINT "  < 0 >  EXIT"
  23. 230  PRINT UL$;
  24. 240  Z$= INKEY$
  25. 250  IF Z$="0"THEN CLS:RUN EX$
  26. 260  IF Z$="1"THEN K=0:N$="resistor":GOTO 330
  27. 270  IF Z$="2"THEN K=1:N$="capacitor":GOTO 300
  28. 280  IF Z$="3"THEN K=0:N$="inductor":GOTO 330
  29. 290  GOTO 240
  30. 300  PRINT "NOTE: ";
  31. 310  PRINT "All values must be entered in the same unit, e.g. >F, pF, etc."
  32. 320  PRINT
  33. 330  PRINT "ENTER: No.of ";N$;"s..........";:INPUT N
  34. 340  LN=N+6
  35. 350  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  36. 360  FOR Z=1 TO N
  37. 370  PRINT " ENTER: Value of ";N$;" #";Z;
  38. 380  INPUT P(Z)
  39. 390  LOCATE CSRLIN-1
  40. 400  PRINT " Value of ";N$;" #";Z;"=";USING U$;P(Z);:PRINT STRING$(40,32)
  41. 410  T=T+1/P(Z):S=S+P(Z)
  42. 420  NEXT Z
  43. 430  PRINT UL$;
  44. 440  T=1/T
  45. 450  IF K THEN SWAP T,S
  46. 460  PRINT " Value of these";N;N$;"s in series  :";
  47. 470  PRINT USING U$;S
  48. 480  PRINT " Value of these";N;N$;"s in parallel:";
  49. 490  PRINT USING U$;T
  50. 500  PRINT UL$;
  51. 510  GOSUB 560
  52. 520  FOR Z=1 TO N:P(Z)=0:NEXT Z
  53. 530  GOTO 90   'start
  54. 540  END
  55. 550  '
  56. 560  'HARDCOPY
  57. 570  GOSUB 680:LOCATE 25,2:COLOR 14,6
  58. 580  PRINT " Press 1 to print screen, 2 to print screen & ";
  59. 590  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  60. 600  Z$=INKEY$:IF Z$="3"THEN GOSUB 680:RETURN
  61. 610  IF Z$="1"OR Z$="2"THEN GOSUB 680:GOTO 630
  62. 620  GOTO 600
  63. 630  FOR QX=1 TO 24:FOR QY=1 TO 80
  64. 640  LPRINT CHR$(SCREEN(QX,QY));
  65. 650  NEXT QY:NEXT QX
  66. 660  IF Z$="2"THEN LPRINT CHR$(12)
  67. 670  GOTO 570
  68. 680  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  69.